home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Gen. / Mac Yellow Pages 1.0 / card_33466.txt < prev    next >
Text File  |  1990-08-17  |  4KB  |  158 lines
  1. -- card: 33466 from stack: in.0
  2. -- bmap block id: 33640
  3. -- flags: 4000
  4. -- background id: 31331
  5. -- name: Publicity
  6. ----- HyperTalk script -----
  7. on openCard
  8.   send "set the cantModify of this stack to false" to HyperCard
  9. end openCard
  10.  
  11. on closeCard
  12.   send "set the cantModify of this stack to true" to HyperCard
  13. end closeCard
  14.  
  15. on help
  16.   send mouseUp to card button "Help"
  17. end help
  18.  
  19.  
  20. -- part 3 (field)
  21. -- low flags: 01
  22. -- high flags: 0000
  23. -- rect: left=25 top=49 right=274 bottom=264
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 0
  27. -- font id: 3
  28. -- text size: 10
  29. -- style flags: 0
  30. -- line height: 13
  31. -- part name: 
  32.  
  33.  
  34. -- part 1 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=240 top=162 right=178 bottom=261
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 1015 / 1015
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Rate Card
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual effect zoom out
  49.   go to card "Advertising Rate"
  50.   repeat with n = 1 to 5
  51.     repeat for 2 times
  52.       set the hilite of card button n to true
  53.       wait for 2 ticks
  54.       set the hilite of card button n to false
  55.       wait for 2 ticks
  56.     end repeat
  57.   end repeat
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 2 (field)
  63. -- low flags: 01
  64. -- high flags: 2001
  65. -- rect: left=281 top=50 right=135 bottom=490
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 3
  70. -- text size: 10
  71. -- style flags: 0
  72. -- line height: 13
  73. -- part name: 
  74.  
  75.  
  76. -- part 6 (field)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=316 top=143 right=276 bottom=492
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 20
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 22
  87. -- part name: Address
  88.  
  89.  
  90. -- part 8 (button)
  91. -- low flags: 00
  92. -- high flags: 2000
  93. -- rect: left=12 top=305 right=337 bottom=48
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Help
  102. ----- HyperTalk script -----
  103. on mouseDown
  104.   play stop
  105.   play harpsichord a7e
  106. end mouseDown
  107.  
  108. on mouseUp
  109.   answer "Fill in this page, print it, then FAX or mail." with "OK"
  110.   global startTime
  111.   put the seconds into startTime
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 11 (field)
  117. -- low flags: 01
  118. -- high flags: 2000
  119. -- rect: left=281 top=50 right=135 bottom=484
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 10
  125. -- style flags: 256
  126. -- line height: 13
  127. -- part name: 
  128.  
  129.  
  130. -- part contents for card part 3
  131. ----- text -----
  132.      Reach  tens of  thousands of Macintosh users without  outrageous   advertising   expenses. . . 
  133. If  your  products  are not  already listed in the Macintosh Yellow Pages,  fill out  this form and FAX or mail it  now--a  basic  listing  is  FREE.
  134.      To  make  your listing  even  more effective, run a display ad in the Macintosh Yellow Pages.
  135. If   you   want   to  double  your  sales   quickly, 
  136. Mac Yellow Pages  is  the place to advertise.
  137. Click this button to see our very low rates. 
  138. --rates  lower than  Macworld,  MacUser,  and MacWEEK.  And what's more, the circulation of your  advertisement  actually  grows with time because users  copy this  disk from  each other.
  139.      Placing   an  ad  in  the  Mac Yellow Pages  is easy.      Simply   send    us   your   artwork   in MacPaint  format--nothing  could  be  easier. 
  140.  
  141. -- part contents for card part 2
  142. ----- text -----
  143.  
  144. (617) 577-9541
  145.  
  146. Macintosh Yellow Pages
  147. Kendall Square, P.O. Box 23
  148. Cambridge,  MA   02142
  149.  
  150. -- part contents for background part 13
  151. ----- text -----
  152. PUBLICITY
  153.  
  154. -- part contents for card part 11
  155. ----- text -----
  156. PRINT THIS PAGE AND FAX TO:
  157.  
  158. OR MAIL TO: